
   5 CLEAR ;FC=135;BC=240;D=0;L=100;CY=-12;CX=19;PRINT "▲+++▲+++▲";CY=-16;CX=19;PRINT "          ";LINE 69,-12,1=XY
  10 LINE 19,-12,1;CY=-18;CX=12;PRINT "100' 50' 0'";M=69;NT=0;FOR A=1TO 186;@(A)=0;NEXT A;C=-60;B=0;Z=0
  20 FOR X=-70TO 0STEP 10;LINE X,20,1=XY;LINE X,-20,1;NEXT X;FOR A=1TO 35STEP 2;B=B+1;@(A)=C;@(A+1)=RND (37)-19
  30 BOX @(A),@(A+1),1,3,2;IF B=3C=C+10;B=0;NEXT A;GOTO 50
  40 NEXT A
  50 FOR X=20TO -20STEP -40;LINE 0,X,1=XY;LINE -70,X,1;NEXT X;CY=10;CX=16;PRINT "ENGINE TEMP";CX=-58;CY=-28;PRINT "SCORE ",#1,L
  70 BOX 3,0,5,5,3;E=-59;B=0;FOR A=37TO 83STEP 2;B=B+1;D=RND (7);@(A)=E+D;@(A+1)=RND (37)-19
  80 IF B=4E=E+10;B=0;NEXT A;GOTO 100
  90 NEXT A
 100 X=-68;Y=0;T=85;&(9)=22;&(2)=75;&(3)=75;&(0)=240;&(1)=240;GOTO 130
 125 IF JX(1)=0IF JY(1)=0GOTO 125
 126 GOSUB 280
 130 X=JX(1)+X;Y=JY(1)+Y;IF X>-2X=-2
 140 IF X<-68X=-68
 150 IF Y>18Y=18
 160 IF Y<-18Y=-18
 161 GOSUB 280
 165 @(T)=X;@(T+1)=Y;T=T+2;IF M=19CY=36;CX=-60;PRINT "OVERTEMP";GOTO 400
 170 FOR A=-60TO -10STEP 10;IF X=AGOTO 250
 180 NEXT A
 190 FOR A=37TO 83STEP 2;IF @(A)=XIF @(A+1)=Y NT=1;CY=36;CX=-62;PRINT "COLLISION";BOX X,Y,5,5,3;GOSUB 500;GOTO 400
 200 NEXT A;IF X=-2IF Y=0GOSUB 280;X=1;GOSUB 280;GOSUB 500;CY=36;PRINT "     MISSION COMPLETE";GOTO 400
 210 M=M-1;GOSUB 600;GOTO 125
 250 FOR A=1TO 35STEP 2
 251 IF @(A)=XIF @(A+1)>Y-2IF @(A+1)<Y+2NT=1;GOSUB 540;GOSUB 280;X=X+2;GOSUB 280;Z=@(A);BOX -35,25,78,9,2;GOTO 190
 255 NEXT A;IF Z=X X=X+2;GOTO 190
 260 X=X-2;GOTO 190
 280 BOX X,Y,1,3,3;BOX X,Y,3,1,3;RETURN 
 400 CY=28;PRINT " BLACK HOLES NOW VISIBLE";FOR A=37TO 83STEP 2;BC=FC;BOX @(A),@(A+1),1,1,1;BC=135;FC=0;NEXT A;STOP
 500 M=M-1;&(23)=255;&(21)=255;FOR T=185TO 85STEP -2;BOX @(T),@(T+1),2,1,1;M=M+1;GOSUB 600;NEXT T
 510 NT=0;&(21)=0;&(23)=0;FOR T=85TO 186;@(T)=0;NEXT T;T=85;RETURN 
 540 CY=25;CX=-67;PRINT "COOL ENGINE?";FOR S=1TO 70;IF TR(1)=1GOSUB 500;L=L-15;CX=-23;CY=-28;PRINT #1,L,"  ";RETURN 
 550 NEXT S;RETURN 
 600 IF M>68M=69
 610 BOX M,-2,1,11,3;RETURN 
>:RETURN ;RUN 
